home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
s
/
supremov3.00a1.dms
/
supremov3.00a1.adf
/
S
/
Demo.sm
next >
Wrap
Text File
|
1992-04-01
|
623b
|
33 lines
/*******************************************************************************
*
* Demo.sm Copyright (c) 6.06.1994, K. Wojcieszek
*
* Program uruchomiony pod SuperMemo v2.03 pokazuje
* kolejne jednostki bazy w trybie edycji.
*
* Wersja 1.00
*
*******************************************************************************/
OPTIONS RESULTS
ADDRESS 'rexx_sm'
sec = 3
sm_to_edit
sm_num; n = RESULT
DO i = 1 TO n
CALL TIME( 'R' )
DO WHILE (TIME( 'E' ) < sec)
NOP
END
sm_next
if RESULT = 'RESULT' then LEAVE
END
CALL TIME( 'R' )
DO WHILE (TIME( 'E' ) < sec)
NOP
END
sm_to_end